home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / comm / tcp / hserv.lha / hserv / cgi-bin / include.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-24  |  257b  |  21 lines
  1. /* */
  2.  
  3. parse arg file
  4.  
  5. say
  6. say
  7.  
  8. if file="" then call err "no file given"
  9.  
  10. call pragma("D","/htdocs")
  11. if ~open("IN",file,"R") then call err "can't find file '"file"'"
  12.  
  13. do while ~eof("IN")
  14.     say readln("IN")
  15. end
  16. exit
  17.  
  18. err:
  19. parse arg msg
  20.     say "Error:" msg
  21.     exit